home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Help / Alpha.4.01 / ACMDS / loopMacro < prev    next >
Encoding:
Text File  |  1990-08-15  |  540 b   |  32 lines  |  [TEXT/ALFA]
  1. ;    Karl J. Smith
  2. ;    8/15/90
  3. ;    email: ksmith@jarthur.claremont.edu
  4. ;
  5. ;    Warning: this macro turns your computer into a dumb clock.
  6. ;    :-)
  7. ;
  8. ;    To quit, hit the debugger key, then type sm 0 a9f4 <return> g 0
  9. ;    or type 'es' in MacsBug.
  10.  
  11.  
  12. (define loopMacro
  13.     endOfBuffer
  14.     previousLine
  15.     beginningOfLine
  16.     setMark
  17.     endOfLine
  18.     markHilite
  19.     type "; The current time is: "
  20.     setMark
  21.     type "S"
  22.     markHilite
  23.     acmd "Paste Time"
  24.     beginningOfBuffer
  25. ; -- Refresh the screen via insertToTop
  26.     insertToTop
  27.     acmd "Delay"
  28.     loopMacro
  29. )
  30.  
  31. ; The current time is: 9:29:57 AM
  32.